#! /usr/bin/perl
use strict;
use warnings;
use Encode;

my %hosts = ( 
		'localhost' => '127.0.0.1',
		'server' => '192.168.1.1'
);

chomp(my @names = <STDIN>);
my $name = shift @names;
print "$name : " . $hosts{$name}. "\n";
